Magnetic Pages Article | 1995-09-02 | 7KB | 139 lines
MPARTICLE
0 Dieser Workshop ist vom Mag The Edge "geklaut".
$ The Edge erh
lt man bei mir:
Michael Hilscher
Schillerstr. 9
69239 Neckarsteinach
I Schick mir einfach eine Disk und 2.- R
ckporto zu. Mach mir auf die DiskF entweder ein paar Artikel, Grafiken, Sounds oder vielleicht sogar einE Proggi von Dir drauf. Wenn Du mir Soft von Dir schickst, schreib aufD jeden Fall dazu, ob ich es in die The Edge PD Reihe aufnehmen darf!
I Falls Du damit nicht dienen kannst, dann stopf mir doch bitte ein nettes
PD Proggi drauf!
& BookSoft - Blitz 2 - Workshop 1. Teil
I Im 1. Teil m
chte ich zun
chst auf die Oberfl
che unseres Programms ein-J gehen. Ich gehe mal davon aus, da
jeder mit dem Ted - der Oberfl
che von
Blitz Basic vertraut ist...
K Und noch etwas vorweg - alle Listings befinden sich im Directory: Listings6 (ach nee - wie originell) auf dieser The Edge Disk...
K Unsere B
cherverwaltung soll auf der Workbench ein eigenes Fenster
ffnen.I Da die Aufl
sungen ja auch verschieden sind,
ffnen wir dieses am bestenD auch noch auf einem eigenen Screen. Damit es keine "Probleme" gibt,
tzen wir den HighRes Mode.
E Screen 0,0,0,640,256,2,-32768,">>BookSoft<< by Michael Hilscher",1,2
K Wenn man sich das Ergebnis ansehen m
chte, mu
man nach der Zeile noch denI Befehl: mousewait eintippen. Der Amiga wartet dann solange - bis man das
M Die erste Zahl beim MenuTitle gibt die Scrennr., die zweite die MenuTitleNr.M an. Die letzte Zahl beim MenuItem Befehl (z) gibt die Nr. des Men
punkts an.M Wer sich das Ergebnis mit mousewait anschaut, wird zun
chst entt
uscht sein.K Denn - es passiert, bei einem Druck auf die rechte Maustaste, noch garnix.
. Das liegt daran, da
wir erst noch den Befehl
* SetMenu 0 (0 steht f
r die Screennr.)
I direkt nach der Zeile mit dem Activate Befehl eingeben m
ssen. Nun, sichF dat Men
nur anschauen zu k
nnen, macht uns noch nicht gl
cklich. WirG m
chten ja schlie
lich, da
der Computer die Men
punkte auch ausf
D OK, als erstes werde ich mal die Repeat, Forever Schleife erkl
RepeatI Alles, was in den folgenden Zeilen bis Forever steht, wird unendlich oft
wiederholt......
Forever
Also, wenn man
Repeat
Print"Jo, Freaks"
Forever
L eingeben w
rde, s
he man auf alle Ewigkeiten - wie der Amiga Jo, Freaks auf
dem Bildschirm ausspuckt....
A So, jetzt tippen wir mal folgendes am Ende unseres Listings ein:
Repeat
ev.l = WaitEvent
Select ev Case 256( If MenuHit = 0 AND ItemHit = 0 Then End
End Select
Forever
F Die Zeile nach dem Repeat Befehl bedeutet nichts weiteres als auf einI Ereignis warten (WaitEvent ;-). ev kann man auch durch etwas xbeliebigesK ersetzen. .l steht f
r long = und bedeutet nichts weiteres als einen ganz-I zahligen Datentyp - aber der gr
te (+- 2147483648) dann gibt es noch .wJ und .b als ganzzahligen Datentyp .b (Byte) ist mit +- 128 der kleinste...K Ist also eine Speicherfrage. Bei unserem Programm gibt es aber auch mit .l
keine Probleme....
L Select ev = warum ev dat wissen wir ja schon. Select mu
man vor den Case`sL eingeben. Case 256 steht f
r einen Men
abruf. Damit der Computer auch wei
,K welcher Men
eintrag aufgerufen wurde, ist die darauf folgende Zeile n
A If MenuHit = 0 (Men
nr. 0) AND ItemHit = 0 (Eintragnr.) Then End
L Also, wenn mit der Maus das Men
0 und der Eintrag 0 selectiert wurde, dann Ende ;-)
M Und damit h
tten wir auch den "unendlich" Lauf unseres Comps unterbrochen...
J Das klappt aber auch mit der Tastenkombination linke Amiga Taste + Q !!!!
E Wenn das bei Dir nich` so ganz funken sollte und Du den Fehler nicht: blickst, dann lade doch einfach das Listing: Booksoft_L01
J Sooo, das war der 1. Teil des Booksoft Workshops. Im 2. werde ich mich um' die Gadgets und Eingabefelder k